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RRR = RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 


AHA tt tt Ht tt SH 
a | LLL) 
ee ee ee Le) 


L 
LLLLLLLLLLLELLLL 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


G 16 
*eF ILE**1D**BASMATRED 
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Aa AA SSSSSS MM MM AA Aa TT RRRRRRRR EEEEEEEE DD DD 
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8B BB AAAAAAAAAA SS MM MM AAAAAAAAAA TT RR RR EE DD DD 
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BB AA SS MM MM AA BA TT RR RR EE DD DD cece 
BBBBBBBB AA AA SSSSSSSS MM MM AA AB TT RR RR EEEEEEEEEE DDDDDDDD cece 
BBBBBBBB AA AA SSSSSSSS MM MM AA Aa TT RR RR EEEEEEEEEE DDDDDDDD eeee 
LL IIIIII SSSSSSSS 
LL III! SSSSSSSS 
LL I] SS 
LL I] $$ 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
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(¢ rh DECLARATIONS : 
(3) 9 BASSMAT_REDIM = Redimension a BASIC array 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


w ® 
* © 
® ® 
® ® 
® w 
* THIS SOFTWARE IS FURNISHED one A LICENSE AND MAY BE USED AND ag ba e 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH pices AND WITH THE * 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT ARE OR ANY OTHER * 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: TRANSFERRED. . 
* 

* THE ao orth IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. * 
* * 
* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® 

® ® 
-* ® 


(ARR RRARRASAARSALEALAALELASAAAARRAALE ASE E ARERR RASA ARERR ARR RRS RRR R ARLE D DS OS 


FACILITY: BASIC code support 
ABSTRACT: 


This module is the routine to redimension BASIC arrays. It is 
called from both the RTL and code generated by the compiler. 


ENVIRONMENT: User Mode, AST Reentrant 


AUTHOR: R. WILL, CREATION DATE: 17-Apr-79 
MODIFIED BY: 
: VERSION 00 


“ Original 
- Changed shared external references to G* RNH 25-Sep-81 


SOOOCOCOSOOSOSOOOOSSOOSOSOSOSOSOSOSOSOOOOSOOOOOSOOOSOOOSOOOOSOSOOoOOSo 
SOSOOSOSCSCOSOSOOSOSOSSOSOSOSOSOSOSOSOSOSOSSSOSOSOSOSOSOSOSOSOSOSOSOSOOSOSSooO 
SOOO OCOCOOOOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOOOOSOOOOOOOOOOOSO 
SOOOOCCOOSOSSSOSOSSSSOSCOCOOCOCOSOOSOOOOOCOOOOOOOOOOOOCOOooOo 
BIE WN —$ O ODNAUE WN $9 OONOAUES WN (OVO ONOAUES WN OOONOUS win 


BPEL PWWIWWIWIWININIIInononononunonunnns 2 2 2 2 2 


i 


LE 


J 16 
n a BASIC=PLUS=2 15-SEP-1984 23: 
rite b-SEp-198¢ 10:3 


.SBTTL DECLARATIONS 
: INCLUDE FILES: 


eager it 


>a 
ze, 
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SDSCDEF ; Define descriptor offsets 


! EXTERNAL DECLARATIONS: 


-DSABL GBL ; Prevent undeclared 

3; symbols from wie 

3; automatically global. 
-EXTRN BASSSSTOP ; Routine to signal errors 


The following are error messages that may be signalled 
-EXTRN BASSK_CANCHAARR 


; Cannot Change Array Dimensions 
; DSCSV_FL_REDIM is not set or 

; DSCSV_FL_BOUNDS jis not set 
-EXTRN BASSK_MATDIMERR 3 Matrix Dimension Error 

; Number of input parameters differs 
:; _from number of dimensions in array 


-EXTRN BASSK_REDARR ; Redimensioned 7 
Not enough space allocated for input 
dimension parameters 
; Subscript Out Of Range : 
; One of the new bounds specified was 


negative or zero 


Soooooooooooo oOo oooo oO oooo - 
COOOCSCOCOC COSC COOCOCOOCOOCOOCOOOOOOOOOOOOCOOOoOO +3 


.EXTRN BASS$K_SUBOUTRAN 


: MACROS: 


SOoOoOOoCoCoOCOSCOCOOOOSOSOSOOOOOOSOOOSOOOOOOSOOSoO 
SOSoSCCCSCSCSOSOSOOCSOSOOOOOOSOOOSOSOOOOOOOSOOOoOSoSS FF 
ooooo Sooooooo OOoOooooo @ 


+ EQUATED SYMBOLS: 
> OWN STORAGE: 


} PSECT DECLARATIONS: 


-PSECT _BASSCODE PIC, USR, CON, REL, LCL. SHR, - 
EXE, RD, NOWRT, LONG 


WOOO OOO 000009 09.09 09 09 G9 09 09 SI NINN NNN NDP PPA AAA AA MATIN EE 
NAME WN SO ODO NAUES WN 0 ODNAUES WIN OOO NOAUE WH" OOONOULS WOO 
. 


ooooooooo 
Sooooooooo 
Soooooooo 
SOOOOoooooo 
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aa -SBTTL BASSMAT_REDIM = Redimension a BASIC array 
$ FUNCTIONAL DESCRIPTION: 


This routine redimensions arrays for BASIC-PLUS-2. It first checks to 
see if the array is currently the size that the call is requesting 
redimensioning to. If so, the routine will return (so that if 
DSCSV_FL_REDIM is not set an error will not be signalled). Otherwise 
it will Signal an error if DSCS$V_FL_REDIM is not set, or if 

2 dimensions are input and the matrix currently only has 1 dimension 
or ently 1 ee gS is input and the matrix currently has 2 dimensions 
or if the input dimensions require more space than originally 
allocated to the array (DSCSL_ARSIZE). If there are no errors, then 
the routine will write either 1 or 2 upper bounds and the same 

number gf multipliers, and set to 0 the same number of tower bounds. 
DSCSA_AO will be set to DSCSA_POINTER. Also 

note that total array size will always remain the initial allocated 
length. Integer overflow is disabled so that a BASIC-PLUS-2 error 

can be signalled if the space needed is too large instead of getting 

a@ hardware error. 


CALLING SEQUENCE: 
CALL BASSMAT_REDIM (matrix.wx.da, rows.rl.v C, cols.rl.vJ) 
INPUT PARAMETERS: 


row_upr_bnd 
col_upr_bnd 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
matrix = 4 

IMPLICIT OUTPUTS: 
NONE 


FUNCTION VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 


Errors List under externals may be signalled. The matrix parameter 
may have different dimensions after routine execution. 
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: 
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SOoOoOSCSCoOoOSoSoOSOOoOSOOSOSOOSOOSOSOSoSoOSoOOoO 


SoooooooooSo 


DOOOOOOOOOOSOOoOSoSoO 


Sooooo 


00000008 
0000000C 


“nu 
— co 
™m 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


ooo 
[=] 


0000 


00000004 0000 


OOQOOCOCOoooe 


SOOoooCooOooooSo 


001C 


SOoOSoSoooCOoooooooooooo 


.ENTRY BASSMAT_REDIM , “M<R2,R3,R4> ay 
; Routine to redimension array 
3 according to BASIC=PLUS-2 


a a a ai aa a a at 2 = = 2 2d = a 6 ss a a 2) 2 2 ss 


DANAE BBE EE EEE WWW WWIII IWIN 2 QO OC OOCOOCOO 


AEA 9 ODNAWUE WN 0 OD NAME WN $$ O OONANE WN $9 ODNAUE WO OONOU SW 0 


SOOOCOCOOOOOOOSOOSOOSOoOoSoSSO 


MMROOOCOOCSO 


Sooooooo 


So 


BASSMAT_REDIM 
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1 
m phy nt me on a BASIC arr aioe 93:30:46 BASRTL.SRCIBA 


OB OA A2 


? 
00000000 ° GF 


VWWDDOSSOASAAOO 


-PLUS-2 arra 15-SEP-1984 AX/VMS Macro Ht oe Page 


TRED.MAR; 1 
; syntax 


+ 
Register usage 
: RO, R1 computation temps 
8 pointer to output matrix descriptor 
a upper bound for subscript 1 (rows) 
R4 upper bound for subscript 2 (columns) 


MOVL matrix(AP), R2 3; pointer to array descriptor 


+ 
—w 
ne 


rst check to see if the bounds are set in the array descriptor 
they are not, we cannot change them. \is this really an error\ 


BBS #DSCSV_FL_BOUNDS, DSCSB_AFLAGS(R2), 1$ ; If bounds are 

; present, go check them 
MOVZBL #BASSK_CANCHAARR, =(SP) : Bounds are not present 
CALLS #1, G*BASSS$STOP 3 signal redimension error 


a 
; Bounds are present. Take execution path depending on number 
of dimensions. 


— eee.e 
bad 
oe 


CMPB (AP), #2 


find # of bounds input 
BLSSU RETURN 


no bounds input, so exit 
\should that be an error’ 
\should I even check for it\ 
go do more than 1 bound 


BGTRU TWO_DIMS 


ed dd dd 
0 00 09 0D 09 09 09 09 08 SI NI NI NSIS SSN NS IPA AAAAAAAOOOUIIUIN 


BONA WN OS DOONAN WN 9 DOONAN EW OOOO 


| BASSMAT REDIM 


08 AC 


39 OA A2 


1C A2 


1¢ 


A2 
oo 


04 


: Redimensi 
BASSMAT RED 


+O 
wa 


E1 


Ow 
-o0 


_—Oo—mo 
ee f 


iY 
D4 


pee lololololololololololololaloleo) 


1D 
1D 
1D 
1D 
1D 
10 
1D 
1D 
1D 

: 

7? 

9 


29 
29 
$3 

9 
$3 

9 
$f 

0 
30 
30 
30 
30 
30 
30 
30 
30 
3 
3 
3 
3 


SOCCOCCOOOSOOOSOOOOSOOOOSoOOSooOO 


BPE FE FWA WI 


5 
5 
5 
5 
5 
5 
5 
5 
8 
D 
D 


OOOOOOooo 


eessssssssssssssssssssssssssssssssssssssssssss 
ex 
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0 


-o 
z>5 


3+ 
; One dimension was input. 


3¢ 
3; Put new bound into R3. If it is negative or zero signal an error 


MOVL row upr_bnd(AP), R3 3 get the new bound 
BLEQ ERRS ; error 


3¢ 
; Check to see if array is one dimensional. If not signal an error. 


CMPB DS 
ER 


$B_DIMCT(R2), #1 
BNEQU 1 


: One dimensional array? 


C 
R ; No, go signal error 


+ 


Check to see if the new bound is the same as the old bound. 
If so return. 


CMPL DSCSL_M1+8(R2), row_upr_bnd(AP) ; Yes, compare bounds _ 
BEQL RETURN ; Array is already desired 
; size, so return 


34 

; See if array is redimensionable. If not, signal an error. Note that 
; we must check for correct size before redimensionability so that we 

3; won't give the ‘can't redimension’ error when array is correct size. 


BBC #OSCSV_FL_REDIM, DSCSB_AFLAGS(R2), ERR3 ; if can't redimension 
; array, go signal an error 
3+ 
; Compute array size needed for new bounds. If more space is needed 
; than is currently allocated to the array signal an error. 


MOVZWL DSCSW_LENGTH(R2), RO 


make item length a longword 
ADDL3) row _upr_bnd(AP), #1, R1 


Add 1 to upper bound since 


; BASIC-PLUS-2 ARRAYS have 0 
: for a lower bound 
MULL2 RO, R1 3 find space need w/ new bound 
BVS ERR2 3; not enuf space, go signa 
CMPL R1, DSCSL_ARSIZE(R2) ; see if too much space needed 
GT ERR2 3; too much space, go signal 


BGTR 
:\what is supposed to to unsigned and what is not?\ 


24 
; All errors have been caught. Now redimension array. 


MOVL row_upr_bnd(AP), DSCSL_M1+8(R2) ; write new upper bound — 
CLRL DSCSL_MT+4(R2) > set lower bound to 0 since 


AMAL AN 9 ODNOA UE WIN $$ O OD NAULE WN 9 OD NAME WN 0 ODA UE WN 0 OONAU EW 


BEE EEF EAA AAWIWIPDINIDINNIISNININS 4 4 OO OH S| HDOOCOOOOCOCOCOCWOVOVOOVOOOWOVOoO 


PoRoRoRoRoNoRoRORORoRoRononononononononononononononononononononononononononononononononononuny 2 3 
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BASSMAT_REDIM imension a a tt | PLUS-2 arra ’ 15-SEP- 1386 : :50:44 VAX/VMS Macro V04-00 Page g | 
1-002 baSema AT_REDIM = Redimension a BASIC arr 6=-SEP-19 :30:46 (CBASRTL.SRCJBASMATRED.MAR; 1 (3) | 
050 47 B+2 arrays have 0 lower bnd 
14 A2 O01 OB AC C1 $080 48 ADDL3) =row_upr_bnd(AP), #1, DSC$L _m(r2s some and write new 
0056 49 i aul tip ier, assuming that 
0056 50 : all B+2 arrays have 0 for L1 
2c 11 0056 251 BRB RETURN i; and exit 
0058 $25 
0058 5 


BASSMAT_REDIM 
1-002 


7E 
00000000 ' GF 

7E 
00000000 ' GF 

re 
00000000 ° GF 


of 
00000000 ' GF 


. 7% 
a BASIC-PLUS=-2 arra 
- Redimension a BASIC arr 


ERR4: MOVZBL gOASSK SUB OUT RAN. -(SP) 
CALLS #i, 


RETURN: RET 


33 i l 
PY ignat errors 
at 
8 ERR1:  MOVZBL HBASSK MATDIMERR, =(SP) 
60 CALLS , G*BASS$$STOP 
6¢ ERR2: MOVZBL HBASSK REDARR, =(SP) 
63 CALLS #1, G*BASSSSTOP 
65 ERR3: MOVZBL WBASSK CAN HAARR, -(SP) 
66 CALLS “BASS$STOP 
88 
5 
71 
72 


VAX/VMS Macro V04-00 Page 
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Matrix Dimension Error 
Signal the error 


Redimensioned Array 

Signal the error 

Can't Change Array Dimension 
Subscript out of range 


and exit 


7 


(3). 


BASSMAT_REDIM 
1-002 


53 
54 


02 


08 AC 
OC AC 


51 


C4 OA A2 


AX/ 


VMS Ba cro V04-00 P 
wr 
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If either is negative or 0, 


; new upper bound 
; error 


new upper bound 


, error 


If not signal an error. 


. 
. 
. 
e 


Two dimensional array? 
No, go signal error 


$L_M2+8(R2), row_upr_bnd(AP) ; Yes, compare number of rows 


Not =, continue redimension 


SL Reetetne), col_upr_ bnd(AP)'; compare number of columns 


Array is already desired 
; size, so return 


If not, signal an error. Note that 


ERR3 ; if can't redimension 
array, “go eal an error 


If more space is needed 


wake item Length a longword 
to upper bound since 
Aasic-BrUse arrays have 0 
for a kquer bound for revs 
not enuf space, 9° signal 
find space need for ? column 
not enuf space, go signal 
Add 1 to upper pound since 
BASIC-PLUS=-2 arrays have 0 


D 
; Redimension a BASIC-PLUS=-2 arra -SEP-1984 0:44 
BASSMAT_REDIM = Redlnons ton 2 BASIC arr See 1 obe 9; 0:46 
74 34 
o ; Two dimensions were input. 
ORs 579 
8 5 78 3+ 
8 5 79 : Put the 2 new upper bounds into registers. 
085 0 3 signal an error. 
Sgn 
08 AC it 085 : MOVi row _upr_bnd(AP), R3 
> 089 4 ace ER 
OC AC +4 8 B 5 col_upr_bnd(AP), R4 
eB 1 7 6 BLeG ERRG 
0091 87 
0091 89 ; Check t if dimensional 
; Check to see array is two dimensional. 
0091 90 ;:- ' 
0091 91 
0091 3 TWO_DIMS: 
OB A2 91 0091 29 CMPB DSCSB_DIMCT(R2), #2 
C1 12 0095 94 BNEQU- ERR! 
0097 95 
0097 96 ;+ 
0097 97 ; Check to see if the new bounds are the same as the old bounds. 
0097 98 ; If so return. 
0097 444 ie 
0097 00 
20 A2 D1 0097 301 CMPL DSC 
07 12 O09C if BNEQ 25$ 
28 A2. ODI pert 0 CMPL DSC 
DF 13 OOA 04 BEQL RETUR 
QOOAS 305 
00AS 306 
QOAS 307 ;+ 
00AS 308 : See if array is redimensionable. 
Q00A5S 309 : we must check for correct size before redimensionability so that we 
BaAe a19 3. 3; won't give the ‘can't redimension' error when array is correct size. 
O0A5 313° 
04 €1 OOAS 13 25$: BBC #OSCSV_FL_REDIM, DSC$B_ AFLAGS(R2), 
OOAA 14 
OOAA 15 
OOAA 16 ;¢ 
AA 17 ; Compute array size needed for new bounds. 
_ | ; than is currently allocated to the array signal an error. 
8 AA 0 
62 3C AA 1 MOVZWL DSCSW_LENGTH(R2), RO 
08 AC C1 Boag § ADDL3 = row_upr_bnd(AP), #1, R1 
$33 
AF 1D i 5 BVS ERR2 
50 C& 00B4 $ MULL2 RO, R1 
AA 1D 087 BVS R 
Oc AC C1 00B9 8 ADDL3 = col_upr_bnd(AP), #1, RO 
bee ] 
OOBE 0 


or a lower bound for column 


. <9 
BASSMAT_REDIM ; Redimension a BASIC-PLUS-2 arra 15-SEP-1984 23:50:44 \VAX/VMS Macro V04-00 Page 9 
1-002 BASSMAT_REDIM - Redimension a BASIC arr 3-SEb-1 ope 93:30:66 BASRTL.SRCJBASMATRED.MAR; 1 . (3) 
A 1D B 1 BVS ERR2 ; not enuf space, go signal 
51 23 C4 68 ¢ MULL2 RO, R1 : find total space needed 
af 1D C BV R ; not enuf space, go signal 
Oc a2 51 «ts :00C 4 CMPL = R1, DSCSL_ARSIZE(R2) : see if too much space needed 
98 14 00C9 5 ‘BGTR = ERR2 ; ; too much space, go signal 
pce § :\what is supposed to to unsigned and what is not?\ 
0cB 8 5+ 
pce i} ; All errors have been caught. Now redimension array. 
0cB 341 * 
1C A2 D4 O0CB 4 cLRL DSCSL_M2+4(R2) ; set lower bound to 0 
0 08 AC DO 93 4 MOVL row_upr_bnd(AP), DSC$L_M2+8(R2) ; write new upper bnd for rows 
14 A2 OF OB8 AC C1 OOD 44 ADDL3 row_upr_bnd(AP), #1, DSC$L_M1 (R25 ; compute and write new row 
0009 345 ; multiplier, assuming that 
00D9 46 ; all 8+2 arrays have 0 for L1 
A2 D4 0009 47 CLRL DSC$L_M2+12(R2) ; set lower bound to 0 
28 A2 «OC AC) «(DO 6(00DC 48 MOVL col_upr_bnd(AP), DSCS$L_M2+16(R2) ; write new upper bnd for col 
18 A201 AC QO0E1 349 ADDL3 collupr-bnd(AP), #1, DSCSL_M2(R2) ; compute and write new col 
QOE7 350 ; multiplier, assuming that 
OOE7 351 3 all B+2 arrays have 0 for L2 
00E7 326 
98 11 O0E7 5 BRB RETURN ; and exit 
O0E9 354 
00E9 355 - END : End of BASSMAT_REDIM 


en 


The working gt Limit was 1200 pages. " 
10708 bytes (21 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 146 non-local ane local symbols. 
355 source Lines were read in Pass 1, produc ing 13 object records in Pass 2. 

mac 


8 pages of virtual memory were used to define ros. 


7 | 
BASSMAT_REDIM ; Redimension a BASIC-PLUS-2 arra 15-SEP-1984 23:50:44 VAX/VMS Macro Vv04-00 Page 1 
Symbol Fable 4 278Eb= 1382 13:3 746 (CBASRTL.SRCJBASMATRED.MAR; 1 . 3) | 
BASSSSTOP etereere =X 0 
BASSK_CANCHAARR eteeeeee 8 
BASSK_MATDIMERR eteeeeee =X 9 
—BASSK_REDARR ekerenre xX 
AS$K_SUBOUTRAN eeeeeene X 0 
BASSMAT_REDIM 999 000 RG 0 
_COL_UPR_BND = 00000C 
/DSCSB_APLAGS = 8 A 
| DSCSB_DIMCT = 00 0B 
DSCSLIARSIZ = 99000 0c | 
“DSCSL-M1 = 00000014 | 
—DSCSL_M2 = 464 ig 
| OSC$V—FL_BOUNDS : 0 0 
| DSCSVTFL-REDIM = 00000004 
DSC$W_LENGTH = 00000000 
ERR1 4 S448 R 02 
ERRG 444 R 02 
a 0000 13 R 02 
ERR4 00000079 R 02 
MATRIX = 00000004 
RETURN 00000084 R 02 
ROW_UPR_BND = 00000008 
ims 00000091 R 02 
| ¢ewoweeccceceeecn + 
!' Psect synopsis ! 
DR Sr ES Cea eh lage ROO a Seat oy a I 
|PSECT name Allocation PSECT No. Attributes 
«= SS « 00000000 ( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ 00000000 ( -) OC 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_BASSCODE OOOOO0E9 ¢( 233.) 02 ¢ 2.) PIC USR CON’ REL LCL SHR EXE RD NOWRT NOVEC LONG 
en aE 
! Performance indicators ! 
incemnnaaweneminamannens 
ase age faults U Time apse me 
Ph P faul CPU Ti El d Ti 
Initialization | 32 80 : 00:00. 06 8:00:00 .g8 
cennend processing , 4 B88: 9.88 8:88: 0e +28 
ass 00:02. 00:06. 
syabo} table sort , p : ae 0 
ass H : e : : ° 
Symbol table output ; :00: “Be 0:00:0 93 
| Psect synopsis output 8 :00:00.03 B08 O'5 
Cross-reference output 9 0:00: 9-08 8:88:09. 0 
Assembler run totals 35 00:00:03.68 0:00:12.05 


00 Page 


...¥ 
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5 
VAX=11 Macro Run Statistics 6-S 0: 


pow onm ssw nn eee me mece eee ee eena + 


' ; Macro library statistics ! 


eeeeeeaoe aeeebeeqneonsanent 


‘Macro Library name Macros defined 
| _$255SDUA28: (SVSLIBISTARLET.MLB;2 temeceeanny “ee 
hh GETS were required to define 4 macros. 

| There were no errors, warnings or information messages. 


| MACRO/ENABLE=SUPPRESSION/DISABLE= (GLOBAL , TRACEBACK) /LIS=L1S$:BASMATRED/OBJ=0BJ$ :BASMATRED MSRC$:BASMATRED/UPDATE=(ENHS$:BASMATRED) 


tel 
LA 


T CORPORATION 
PROPRIETARY 


A\(\a, AH-BT13A- SE 
VVEO VAX/VMS V4.0 


L EQUIPMENT CORPORATION 


ENTIAL AND PROPRIETARY 


0027 Vaxsums va-o C 
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